object FormAsociacionPapel_Proveed: TFormAsociacionPapel_Proveed
  Left = 614
  Top = 211
  BorderStyle = bsSingle
  Caption = 'Asociaci'#243'n de Papeles - Proveedor para busquedas'
  ClientHeight = 521
  ClientWidth = 499
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 0
    Top = 0
    Width = 499
    Height = 23
    Align = alTop
    Alignment = taCenter
    Caption = 'PAPELES Y PROVEEDORES'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -16
    Font.Name = 'Arial Black'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 0
    Top = 23
    Width = 499
    Height = 13
    Align = alTop
    Alignment = taCenter
    Caption = 
      'Selecciona que tipos de papel - proveedor se listan en las b'#250'squ' +
      'edas de papeles'
  end
  object Panel1: TPanel
    Left = 0
    Top = 36
    Width = 499
    Height = 129
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label3: TLabel
      Left = 11
      Top = 10
      Width = 27
      Height = 13
      Caption = 'Papel'
    end
    object Label4: TLabel
      Left = 288
      Top = 11
      Width = 49
      Height = 13
      Caption = 'Proveedor'
    end
    object BtnAnadir: TSpeedButton
      Left = 223
      Top = 71
      Width = 50
      Height = 50
      Caption = 'A'#241'adir'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333033333
        33333333373F33333333333330B03333333333337F7F33333333333330F03333
        333333337F7FF3333333333330B00333333333337F773FF33333333330F0F003
        333333337F7F773F3333333330B0B0B0333333337F7F7F7F3333333300F0F0F0
        333333377F73737F33333330B0BFBFB03333337F7F33337F33333330F0FBFBF0
        3333337F7333337F33333330BFBFBFB033333373F3333373333333330BFBFB03
        33333337FFFFF7FF3333333300000000333333377777777F333333330EEEEEE0
        33333337FFFFFF7FF3333333000000000333333777777777F33333330000000B
        03333337777777F7F33333330000000003333337777777773333}
      Layout = blGlyphBottom
      NumGlyphs = 2
      OnClick = BtnAnadirClick
    end
    object cbPapel: TListBox
      Left = 10
      Top = 24
      Width = 200
      Height = 97
      ItemHeight = 13
      TabOrder = 0
    end
    object cbProveed: TListBox
      Left = 287
      Top = 24
      Width = 200
      Height = 97
      ItemHeight = 13
      TabOrder = 1
    end
  end
  object XDBGrid1: TXDBGrid
    Left = 0
    Top = 165
    Width = 499
    Height = 315
    Align = alClient
    DataSource = dsTipos_Papel_Proveed
    HeaderFont.Charset = DEFAULT_CHARSET
    HeaderFont.Color = clWindowText
    HeaderFont.Height = -11
    HeaderFont.Name = 'MS Sans Serif'
    HeaderFont.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgTitleButtons, dgTitleHeaders, dgTitleWidthOff, dgMarkerAutoAlign, dgRowResize, dgRowScroll, dgMarkerAutoToggle, dgExtendedSelect, dgInternalSelect]
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'PAPEL'
        Title.Caption = 'Tipo de Papel'
        Visible = True
        Width = 180
      end
      item
        Expanded = False
        FieldName = 'PROVEEDOR'
        Title.Caption = 'Proveedor que se utiliza'
        Visible = True
        Width = 270
      end>
  end
  object pBotones: TPanel
    Left = 0
    Top = 480
    Width = 499
    Height = 41
    Align = alBottom
    TabOrder = 2
    object BtnEliminar: TSpeedButton
      Left = 17
      Top = 8
      Width = 150
      Height = 25
      Caption = 'Eliminar Seleccionado'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
        3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
        33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
        33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
        333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
        03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
        33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
        0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
        3333333337FFF7F3333333333000003333333333377777333333}
      NumGlyphs = 2
      OnClick = BtnEliminarClick
    end
    object BtnSalir: TSpeedButton
      Left = 330
      Top = 8
      Width = 150
      Height = 25
      Caption = 'Salir'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
        0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
        0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
        0333337F777FFFFF7F3333000000000003333377777777777333}
      NumGlyphs = 2
      OnClick = BtnSalirClick
    end
  end
  object qTipos_Papel_Proveed: TZReadOnlyQuery
    Connection = md.BBDD
    SQL.Strings = (
      
        'SELECT T.IDPROVEEDOR, TP.DESCRIPCION PAPEL, T.IDTIPODEPAPEL, PR.' +
        'RAZONSOCIAL PROVEEDOR'
      'from tipos_papel_proveedor T'
      #9'LEFT JOIN ALM_PROVEEDORES PR ON T.IDPROVEEDOR = PR.IDPROVEEDOR '
      
        #9'LEFT JOIN ALM_TIPOSDEPAPEL TP ON T.IDTIPODEPAPEL = TP.IDTIPODEP' +
        'APEL '
      'ORDER BY PR.RAZONSOCIAL, TP.DESCRIPCION ')
    Params = <>
    Left = 292
    Top = 368
  end
  object dsTipos_Papel_Proveed: TDataSource
    DataSet = qTipos_Papel_Proveed
    Left = 292
    Top = 416
  end
end
